\ udmultiply 05.3.27 NAB
\ Original 02.6.26 KDJ

: udm* ( ud1. u -- ud. )
  tuck um* drop 0 swap
  2swap um*
  d+ ;
  
: ud* ( ud1. ud2. -- ud1.*ud2. )
  dup if
    rot drop rot udm* exit
  then
  drop udm* ;
